﻿Public Class FrmColor

    Private Sub btNuevo_Click(sender As System.Object, e As System.EventArgs) Handles btNuevo.Click
        Dim oColor As New GBDZafiro.Color
        Dim rpta As New GBDZafiro.Resultado

        'oColor.Color = tbNomColor.Text
        'oColor.CodColor = tbCodigo.Text
        'rpta = GBDZafiro.Color.Nuevo(oColor)
        'tbResultado.Text = rpta.Mensaje

        Dim dtConsulta As New DataTable
        'dtConsulta = GBDZafiro.Color.ConsxCodigo(tbCodigo.Text)
        'gvConsulta.DataSource = dtConsulta

    End Sub

    Private Sub FrmColor_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load

    End Sub
End Class